(fill-comment-paragraph): Prevent the use of an optimized comment regexp if

`comment-start-skip' uses a ^.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index e5b3a64db846904811dd903fd99a0f929f282dad..3fec7a31b9fc728b7c1e0e220cc0328071a8c6dc 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -838,7 +838,7 @@ can take care of filling.  JUSTIFY is used as in `fill-paragraph'."
             (commark
              (comment-string-strip (buffer-substring comstart comin) nil t))
             (comment-re
-             (if (string-match comment-start-skip (concat commark "a"))
+             (if (string-match comment-start-skip (concat "\0" commark "a"))
                  (concat "[ \t]*" (regexp-quote commark)
                          ;; Make sure we only match comments that use
                          ;; the exact same comment marker.